home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / filecomp.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-04-24  |  1.3 KB  |  39 lines
  1. 10  CLS:FILES
  2. 20  INPUT "ENTER ORIGINAL FILE NAME-",IF1$:OPEN IF1$ FOR INPUT AS 1
  3. 30  INPUT "ENTER MODIFIED FILE NAME-",IF2$:OPEN IF2$ FOR INPUT AS 2
  4. 40  INPUT "ENTER   CHANGE FILE NAME-",OF$:OPEN OF$ FOR OUTPUT AS 3
  5. 50  CLS
  6. 60  PRINT IF1$;:LOCATE 1,20:PRINT IF2$;:LOCATE 1,40:PRINT OF$;
  7. 70  GOSUB 150:GOSUB 240
  8. 80  IF N1=N2 THEN LOCATE 2,50:PRINT "LINE EQUAL  ";
  9. 90  IF N1=N2 THEN IF L1$=L2$ THEN 70 ELSE PRINT #3,L2$:LOCATE 2,40:PRINT N1;:LOCATE 2,50:PRINT "DIFFERENT   ";:GOTO 70
  10. 100  IF N1>N2 THEN PRINT #3,L2$:LOCATE 2,40:PRINT N2;:LOCATE 2,50:PRINT "LINE ADDED  ";:GOSUB 240:GOTO 80
  11. 110  TMP$=STR$(N1)
  12. 120  TMP$=RIGHT$(TMP$,(LEN(TMP$)-1)):TMP$=TMP$+" REM DELETED BY FILE COMPARE"
  13. 130  PRINT #3,TMP$:LOCATE 2,40:PRINT N1;:LOCATE 2,50:PRINT "LINE DELETED";
  14. 140  GOSUB 150:GOTO 80
  15. 150  IF EOF(1) THEN 190
  16. 160  LINE INPUT #1,L1$:N1=VAL(L1$)
  17. 170  LOCATE 2,1:PRINT N1;
  18. 180  RETURN
  19. 190  IF NOT EOF(2) THEN PRINT #3,L2$:LOCATE 2,40:PRINT N2;:LOCATE 2,50:PRINT "LINE ADDED  ";
  20. 200  WHILE NOT EOF(2)
  21. 210  LINE INPUT #2,L2$:N2=VAL(L2$):PRINT #3,L2$:LOCATE 2,20:PRINT N2;:LOCATE 2,40:PRINT N2;:LOCATE 2,50:PRINT "LINE ADDED  ";
  22. 220  WEND
  23. 230  GOTO 370
  24. 240  IF EOF(2) THEN 280
  25. 250  LINE INPUT #2,L2$:N2=VAL(L2$)
  26. 260  LOCATE 2,20:PRINT N2;
  27. 270  RETURN
  28. 280  TMP$=STR$(N1)
  29. 290  TMP$=RIGHT$(TMP$,(LEN(TMP$)-1)):TMP$=TMP$+" REM DELETED BY FILE COMPARE"
  30. 300  PRINT #3,TMP$:LOCATE 2,40:PRINT N1;:LOCATE 2,50:PRINT "LINE DELETED";
  31. 310  WHILE NOT EOF(1)
  32. 320  LINE INPUT #1,L1$:N1=VAL(L1$)
  33. 330  TMP$=STR$(N1)
  34. 340  TMP$=RIGHT$(TMP$,(LEN(TMP$)-1)):TMP$=TMP$+" REM DELETED BY FILE COMPARE"
  35. 350  PRINT #3,TMP$:LOCATE 2,1:PRINT N1;:LOCATE 2,40:PRINT N1;:LOCATE 2,50:PRINT "LINE DELETED";
  36. 360  WEND
  37. 370  CLOSE:LOCATE 12,35:PRINT "END OF SCAN
  38. 380  END
  39.